DEFINE TEMP-TABLE ttRichiesteDaChiudere
  FIELD aktienr      LIKE aktie.aktienr 
  FIELD datummeld    LIKE aktie.datummeld 
  FIELD omschrijving LIKE aktie.omschrijving
  FIELD module       LIKE aktie.module
  FIELD klantproc    LIKE module.klantproc
  FIELD wiemeld      LIKE aktie.wiemeld
  FIELD aktiestat    LIKE aktie.aktiestat
  FIELD minspent     LIKE besteding.minuten
  FIELD minfatt      LIKE besteding.minuten
  FIELD mintot       LIKE besteding.minuten
  FIELD Chiuso       AS LOGICAL
.

FOR EACH aktie NO-LOCK
WHERE aktie.zoeknaam = "COMUNEMI"
AND  (aktie.datummeld GE 01/01/2006 OR
      aktie.statusper GE 01/01/2006):
  CREATE ttRichiesteDaChiudere.
  BUFFER-COPY aktie TO ttRichiesteDaChiudere.

  ttRichiesteDaChiudere.module = aktie.module.

  FIND module OF aktie NO-LOCK NO-ERROR.
  IF AVAILABLE module THEN
    ttRichiesteDaChiudere.klantproc = module.klantproc.

  FOR EACH besteding NO-LOCK
  WHERE besteding.aktienr = aktie.aktienr:
    ttRichiesteDaChiudere.mintot = ttRichiesteDaChiudere.mintot +
      besteding.minuten.

    IF besteding.klantref NE "" THEN
      ttRichiesteDaChiudere.minfatt = ttRichiesteDaChiudere.minfatt +
        besteding.minuten.
    ELSE
      ttRichiesteDaChiudere.minspent = ttRichiesteDaChiudere.minspent +
        besteding.minuten.
  END.

  IF  ttRichiesteDaChiudere.mintot GT 0
  AND ttRichiesteDaChiudere.minfatt = ttRichiesteDaChiudere.mintot THEN
    ttRichiesteDaChiudere.Chiuso = TRUE.
  ELSE
    ttRichiesteDaChiudere.Chiuso = FALSE.
END.

RUN sy/win/wbrowsett.w
  (INPUT TEMP-TABLE ttRichiesteDaChiudere:HANDLE).
